unit TestData;

interface

uses DBXConnection;

function CreateTestConnection: TDBXConnection;

implementation

const
  INTERBASE_PARAMS =
    'BlobSize=-1' + SLineBreak +
    'CommitRetain=False' + SLineBreak +
    'Database=D:\data\luxena\Products\dbExpress_Extension\Test\TestData\EMPLOYEE.GDB' + SLineBreak +
    'ErrorResourceFile=' + SLineBreak +
    'LocaleCode=0000' + SLineBreak +
    'Password=masterkey' + SLineBreak +
    'RoleName=RoleName' + SLineBreak +
    'ServerCharSet=' + SLineBreak +
    'SQLDialect=1' + SLineBreak +
    'Interbase TransIsolation=ReadCommited' + SLineBreak +
    'User_Name=sysdba' + SLineBreak +
    'Password=masterkey' + SLineBreak +
    'WaitOnLocks=True';

function CreateTestConnection: TDBXConnection;
begin
  Result := TDBXConnection.Create(nil);
  Result.DriverName := 'Interbase';
  Result.LibraryName := 'C:\Program Files\Borland\Delphi7\Bin\dbexpint.dll';
  Result.GetDriverFunc := 'getSQLDriverINTERBASE';
  Result.VendorLib := 'gds32.dll';
  Result.Params.Text := INTERBASE_PARAMS;
  Result.PoolOptions.Enabled := False;
  Result.PoolOptions.Min := 2;
  Result.PoolOptions.Max := 4;
  Result.PoolOptions.TimeOut := 10000;
  Result.PoolOptions.LifeTime := 1000;
end;

end.
